home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t4.d64 / dump'big'epson.l < prev    next >
Text File  |  2007-02-28  |  3KB  |  107 lines
  1. 8000 //DELETE"0:DUMP'BIG'EPSON.L"
  2. 8005 // BY JESSE KNIGHT
  3. 8010 //LIST  "0:DUMP'BIG'EPSON.L"
  4. 8015 //
  5. 8020 //  ░└└└└└└└└└└└└└└└└└└└└«
  6. 8025 //  ▌ JESSE KNIGHT JR.   ▌
  7. 8030 //  ▌ RT. 1 BOX 1928     ▌
  8. 8035 //  ▌ BRAZORIA, TX 77422 ▌
  9. 8040 //  ¡└└└└└└└└└└└└└└└└└└└└╜
  10. 8045 //
  11. 8050 // LAST MOD: 6/12/84
  12. 8055 //
  13. 8060 // BIT'PRINT'EPSON PRODUCES
  14. 8065 // A DOUBLE SIZED HARDCOPY
  15. 8070 // OF A COMAL GRAPHIC SCREEN
  16. 8075 // SIDEWAYS ON AN EPSON OR EPSON
  17. 8080 // 'THINK ALIKE' PRINTER.
  18. 8085 //
  19. 8090 // MACHINE CODE AND WORK AREA
  20. 8095 // IS LOCATED BETWEEN $CE00
  21. 8100 // AND $CFFF SO SPRITES USING
  22. 8105 // THIS AREA SHOULD BE AVOIDED.
  23. 8110 //
  24. 8115 // BY CHANGING THE INDICATED LINES
  25. 8120 // BIT'PRINT'EPSON WILL SEND
  26. 8125 // LINE FEEDS.
  27. 8130 //
  28. 8135 // THE OPEN STATEMENT MAY NEED A
  29. 8140 // SECONDARY ADDRESS TO WORK WITH
  30. 8145 // SOME INTERFACES. IT WORKS AS IS
  31. 8150 // WITH A BUSCARD II INTERFACE.
  32. 8155 //
  33. 8160 // SECONDARY ADRESS 5 WORKS FOR
  34. 8165 // THE CARDCO +G
  35. 8170 //
  36. 8175 //--------------------------------
  37. 8180 //
  38. 8185 // INIT'BIT'PRINT'EPSON
  39. 8190 // BIT'PRINT'EPSON
  40. 8195 //
  41. 8200 PROC BIT'PRINT'EPSON CLOSED
  42. 8205 IF PEEK(52736)<>169 THEN INIT'BIT'PRINT'EPSON
  43. 8210 OPEN FILE 4,"",UNIT 4,READ // SA4
  44. 8215 PRINT FILE 4: CHR$(27)+CHR$(65)+CHR$(8)
  45. 8220 SYS 52736
  46. 8225 PRINT FILE 4: CHR$(27)+CHR$(64)
  47. 8230 CLOSE FILE 4
  48. 8235 ENDPROC BIT'PRINT'EPSON
  49. 8240 //
  50. 8245 //
  51. 8250 //
  52. 8255 PROC INIT'BIT'PRINT'EPSON CLOSED
  53. 8260 FOR X:=0 TO 219 DO
  54. 8265 READ A
  55. 8270 POKE 52736+X,A
  56. 8275 ENDFOR X
  57. 8280 //
  58. 8285 //
  59. 8290 //
  60. 8295 DATA 169,40,141,219,206,169,7,133,251,169,254
  61. 8300 DATA 133,252,162,4,32,201,255,32,120,206
  62. 8305 DATA 32,108,206,160,0,185,0,207,41,240
  63. 8310 DATA 74,74,74,74,170,189,201,206,32,210
  64. 8315 DATA 255,32,210,255,200,192,200,208,232,169
  65. 8320 DATA 13,32,210,255
  66. 8325 //
  67. 8330 //   USE NEXT LINE IF PROGRAM
  68. 8335 //   SHOULD SEND LINE FEEDS
  69. 8340 //
  70. 8345 //DATA 169,10,32,210,255
  71. 8350 //
  72. 8355 //
  73. 8360 //   USE NEXT LINE IF PROGRAM
  74. 8365 //   SHOULD NOT SEND LINE FEEDS
  75. 8370 //
  76. 8375 DATA 234,234,234,234,234
  77. 8380 //
  78. 8385 DATA 32
  79. 8390 DATA 108,206,160,0,185,0,207,41,15,170
  80. 8395 DATA 189,201,206,32,210,255,32,210,255,200
  81. 8400 DATA 192,200,208,236,169,13,32,210,255
  82. 8405 //
  83. 8410 //   USE NEXT LINE IF PROGRAM
  84. 8415 //   SHOULD SEND LINE FEEDS
  85. 8420 //
  86. 8425 //DATA 169,10,32,210,255
  87. 8430 //
  88. 8435 //   USE NEXT LINE IF PROGRAM
  89. 8440 //   SHOULD NOT SEND LINE FEEDS
  90. 8445 //
  91. 8450 DATA 234,234,234,234,234
  92. 8455 //
  93. 8460 DATA 206,219,206,208,174,169
  94. 8465 DATA 12,32,210,255,76,204,255,160,3,185
  95. 8470 DATA 197,206,32,210,255,136,16,247,96,120
  96. 8475 DATA 165,1,72,169,53,133,1,162,0,169
  97. 8480 DATA 25,141,217,206,169,8,141,218,206,160
  98. 8485 DATA 0,177,251,157,0,207,232,165,251,208
  99. 8490 DATA 2,198,252,198,251,206,218,206,208,237
  100. 8495 DATA 165,251,56,233,56,133,251,165,252,233
  101. 8500 DATA 1,133,252,206,217,206,208,212,165,251
  102. 8505 DATA 24,105,72,133,251,165,252,105,31,133
  103. 8510 DATA 252,104,133,1,88,96,1,144,75,27
  104. 8515 DATA 0,3,12,15,48,51,60,63,192,195
  105. 8520 DATA 204,207,240,243,252,255,0,0,0
  106. 8525 ENDPROC INIT'BIT'PRINT'EPSON
  107.